home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / decision maker (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  122 lines
  1. 1 POKE 53281,1: FOR I=1 TO 7: POKE 53280,I
  2. 2 PRINT"[147]    YES                    NO"
  3. 3 PRINT"    DECISION": FOR T=1 TO 200:NEXT T
  4. 4 PRINT"[147]    YES                    NO"
  5. 5 PRINT"                           DECISION"
  6. 6 FOR T=1 TO 200:NEXT T
  7. 7 NEXT I
  8. 8 GOSUB 4000
  9. 10 PRINT CHR$(147)
  10. 30 DIM I(10,10)
  11. 120 PRINT "             DECISION MAKER"
  12. 130 PRINT
  13. 140 PRINT "PLEASE TYPE A LIST ";
  14. 150 PRINT "OF THE OPTIONS YOU "
  15. 160 PRINT "ARE CONDIDERING. ";
  16. 170 PRINT "ANY ORDER WILL DO. "
  17. 180 GOSUB 2000
  18. 190 C=1
  19. 200 D$="DONE"
  20. 210 INPUT A$(C)
  21. 240 IF A$(C)=D$ THEN 300
  22. 250 C=C+1
  23. 290 GOTO 210
  24. 300 TA=C-1
  25. 310 PRINT CHR$(147)
  26. 320 PRINT "PLEASE TYPE A LIST ";
  27. 330 PRINT "OF FACTORS THAT ARE "
  28. 340 PRINT "IMPORTANT IN MAKING ";
  29. 350 PRINT "THIS DECISION."
  30. 360 GOSUB 2000
  31. 370 C=1
  32. 380 INPUT F$(C)
  33. 410 IF F$(C)=D$ THEN 470
  34. 450 C=C+1
  35. 460 GOTO 380
  36. 470 TF=C-1
  37. 480 PRINT CHR$(147)
  38. 490 PRINT "PLEASE RATE THE ";
  39. 500 PRINT "THE RELATIVE IMPORTANCE "
  40. 510 PRINT "OF EACH FACTOR ON A ";
  41. 520 PRINT "SCALE OF 1 TO 10 (10"
  42. 530 PRINT "BEING THE HIGHEST)."
  43. 540 GOSUB 3000
  44. 550 FOR C=1 TO TF
  45. 560 PRINT
  46. 570 PRINT F$(C);
  47. 580 INPUT RF(C)
  48. 590 IF RF(C)<1 OR RF(C)>10 THEN 580
  49. 610 NEXT C
  50. 620 FOR C=1 TO TA
  51. 630 PRINT CHR$(147)
  52. 640 PRINT "PLEASE RATE, ON A ";
  53. 650 PRINT "SCALE OF 1 TO 10,";
  54. 669 PRINT "THE AMOUNT EACH ";
  55. 670 PRINT "FACTOR SUPPORTS "
  56. 680 PRINT "CHOOSING THE OPTION"
  57. 690 PRINT
  58. 700 PRINT A$(C)
  59. 710 GOSUB 3000
  60. 720 PRINT "WHAT IS THE RATING "
  61. 730 PRINT "OF ";A$(C)
  62. 740 PRINT "FOR THE FACTOR..."
  63. 750 FOR IC=1 TO TF
  64. 760 PRINT
  65. 770 PRINT F$(IC);
  66. 780 INPUT I(C,IC)
  67. 790 IF I(C,IC)<1 OR I(C,IC)>10 THEN 780
  68. 800 NEXT IC
  69. 830 NEXTC
  70. 840 PRINT CHR$(147)
  71. 850 PRINT "CALCULATING RESULTS"
  72. 860 FOR C=1 TO TA
  73. 870 FOR IC=1 TO TF
  74. 880 TR(C)=TR(C)+I(C,IC)*RF(IC)
  75. 890 NEXT IC
  76. 900 NEXT C
  77. 910 W=1
  78. 920 FOR C=2 TO TA
  79. 930 IF TR(C)>TR(W) THEN W=C
  80. 950 NEXT C
  81. 960 POKE 54296,15
  82. 970 POKE 64278,228
  83. 980 POKE 54273,57
  84. 990 POKE 54276,33
  85. 1000 FOR T = 1 TO 200
  86. 1010 NEXT T
  87. 1020 POKE 54276,0
  88. 1030 PRINT CHR$(147)
  89. 1040 PRINT A$(W)
  90. 1050 PRINT "HAD THE HIGHEST ";
  91. 1060 PRINT "OVERALL RATING WITH "
  92. 1070 PRINT TR(W);" POINTS."
  93. 1080 PRINT
  94. 1090 PRINT "THE OTHER OPTIONS ";
  95. 1100 PRINT "RATED AS FOLLOWS:"
  96. 1110 PRINT
  97. 1120 FOR C=1 TO TA
  98. 1130 IF C=W THEN 1150
  99. 1140 PRINT TR(C),A$(C)
  100. 1150 NEXT C
  101. 1160 END
  102. 2000 GOSUB 3000
  103. 2010 PRINT "TYPE THE WORD ";CHR$(34);"DONE";CHR$(34);" ";
  104. 2020 PRINT "AND PRESS <RETURN> "
  105. 2030 PRINT "WHEN YOU HAVE ";
  106. 2040 PRINT "FINISHED THE TYPING THE ";
  107. 2050 PRINT "  LIST."
  108. 2060 PRINT
  109. 2070 RETURN
  110. 3000 PRINT
  111. 3010 PRINT "PRESS <RETURN> AFTER ";
  112. 3020 PRINT "EACH ENTRY."
  113. 3030 RETURN
  114. 4000 PRINT"[147]            [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  115. 4010 [153]"            PEEKDECISION MAKERPEEK"
  116. 4015 [153]"            MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  117. 4016 PRINT" "
  118. 4020 PRINT"        COPYRIGHT 1984  GLEN DANZ"
  119. 4021 PRINT"            AND ROBERT REED"
  120. 4030 FOR T=1 TO 2000:NEXT T
  121. 5000 RETURN
  122.